COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Simulate tenex io routines with sail subroutines and macros
C00004 ENDMK
C⊗;
COMMENT Simulate tenex io routines with sail subroutines and macros;

procedure swdptr(integer chan,wordno);
begin
	integer i,temp;
	useti(chan,wordno/'200+1);
	for i←0 step 1 while i< ('177 land wordno) do
		wordin(chan);
end;


procedure gtfdb(integer chan; integer array buf);
begin
end;

procedure chfdb(integer chan,displacement,mask,changed_bits);
begin
end;

integer procedure delnf(integer chan,kept);
begin
	comment used on line 372 of picbuf.sai;
end;

integer procedure gjinf(reference integer logdir,condir,ttyno);
begin
	return(0);
	comment used on line 179 of picbuf.sai;
end;

string procedure jfns(integer chan,flags);
begin
	return("how_do_you_do");
end;

integer procedure openfile(string name,options);
begin
	integer chan;
	integer count,brchar,eof,flag;
	comment Should do something to look at option flags of "options";
	chan←getchan;
	open(chan,"DSK",'10,4,4,count,brchar,eof);
	lookup(chan,name,flag);
	return(chan);
end;

boolean procedure cfile(integer chan);
begin
	close(chan);
	return(true);
end;

define intty = "inchwl";

define psout = "print";

define closf = "close";